10 PRINT"[147]"CHR$(142):POKE53280,0:POKE53281,0
100 GOSUB 60000
130 :
140 :
150 GOSUB 63000
250 GETA$:IFA$=""THEN 250
251 IFA$<"0"ORA$>"9"THEN250
252 X=VAL(A$)
254 IFX=0 THEN 1500
255 GOSUB 61500
260 ONXGOTO270,340,410,450,490,610,980,1180,1300,1500
265 GOTO 150
270 PRINT"[147]":OPEN4,4,0:PRINT#4,CHR$(14)+CHR$(31)
280 PRINT#4,"VIC CHIP MEMORY MAP (40 COL.)":PRINT#4,CHR$(15)
285 PRINT#4:GOSUB1490
290 PRINT#4,SPC(16);"111111111122222222223333333333"
300 PRINT#4,SPC(6);"0123456789012345678901234567890123456789"
305 PRINT#4:PRINT#4
310 FORI=1024TO1984STEP40
320 PRINT#4,I;:FORX=0TO39:PRINT#4,"[207]";:NEXT:PRINT#4,"[199]":PRINTCHR$(13):NEXT
330 FORX=0TO45:PRINT#4,"[163]";:NEXT:GOSUB1470:PRINT"[147]":GOSUB1450:GOTO140
340 PRINT"[147]":OPEN4,4,0:PRINT#4,CHR$(14)+CHR$(31)
350 PRINT#4,"VIC CHIP COLOR MAP (40 COL.)":PRINT#4,CHR$(15)
355 PRINT#4:GOSUB1490
360 PRINT#4,SPC(17);"111111111122222222223333333333"
370 PRINT#4,SPC(7);"0123456789012345678901234567890123456789"
375 PRINT#4:PRINT#4
380 FORI=55296TO56256STEP40
390 PRINT#4,I;:FORX=0TO39:PRINT#4,"[207]";:NEXT:PRINT#4,"[199]":PRINTCHR$(13):NEXT
400 FORX=0TO46:PRINT#4,"[163]";:NEXT:GOSUB1470:PRINT"[147]":GOSUB1450:GOTO140
410 PRINT"[147]":OPEN4,4,0:FORP=1TO2:PRINT#4,CHR$(14)+CHR$(31)
420 FORX=1TO2:PRINT#4,"MEMO[218]MEMO[218]MEMO[218]MEMO  ";:NEXTX
425 PRINT#4:PRINT#4,CHR$(159)
430 FORL=1TO13:PRINT#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT#4
440 NEXTL:NEXTP:PRINT"[147]":GOSUB1450:GOTO140
450 GOSUB1430:PRINT"[147]":OPEN4,4,0:PRINT#4,CHR$(14)+CHR$(31):FORX=1TO4
460 PRINT#4,"[218]SHOPPING[218]";:NEXT:PRINT#4:FORX=1TO4
470 PRINT#4,"[218]  LIST  [218]";:NEXT:PRINT#4,CHR$(159):FORL=1TO29:FORX=1TO4
480 PRINT#4," [164][164][164][164][164][164][164][164] ";:NEXT:PRINT#4:PRINT#4:NEXT:PRINT"[147]"
485 GOSUB1450:GOTO140
490 PRINT"[147]":OPEN4,4,0:FORM=1TO2:PRINT#4,CHR$(31):FORX=1TO2
500 PRINT#4,"TO [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] FROM [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:NEXTX:PRINT#4
510 PRINT#4,CHR$(14)+CHR$(31)
520 PRINT#4,"WHILE YOU WERE OUT! WHILE YOU WERE OUT!"
525 PRINT#4,CHR$(15):FORX=1TO2
530 PRINT#4,"M [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] OF [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:NEXTX
535 PRINT#4:PRINT#4
540 FORX=1TO2:PRINT#4,"PH# [164][164][164][164][164][164][164][164][164][164][164][164][164][164] EXT# [164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";
545 NEXTX:PRINT#4
550 PRINT#4
560 FORX=1TO2:PRINT#4,"CALLED  [], URGENT [], PLEASE CALL [],  ";
565 NEXTX:PRINT#4:PRINT#4
570 FORX=1TO2:PRINT#4,"MESSAGE [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:NEXTX
580 PRINT#4:PRINT#4,CHR$(159):FORZ=1TO8
590 FORX=1TO2:PRINT#4,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  ";:NEXTX
595 PRINT#4
600 PRINT#4:NEXTZ:PRINT#4:NEXTM:PRINT"[147]":GOSUB1450:GOTO140
610 PRINT"[147]":OPEN4,4:PRINT#4,CHR$(14)+CHR$(31):FORM=1TO19
620 PRINT"[147][159]    PRINTING LAB'S COVER DESIGNS ":PRINT
630 PRINT"[152] A=BASKETWEAVE ":PRINT" B=HEARTS      "
640 PRINT" C=X'S AND O'S ":PRINT" D=DIAMONDS    "
650 PRINT" E=PLAYING CARD":PRINT" F=CHECKER BRD."
660 PRINT" G=BRICK WORK  ":PRINT" H=MOSAIC TILE "
670 PRINT" I=GEOMETRIC   ":PRINT" J=DIAGONALS   "
680 PRINT" K=DECO-ART I  ":PRINT" L=DECO-ART II "
685 PRINT"[154]  ENTER COVER  ":PRINT"    DESIGN     "
690 GETCV$:IFCV$=""THEN690
695 IFASC(CV$)<65ORASC(CV$)>76ORLEN(CV$)=>2THENPRINT"[145][145]":CV$="":GOTO690
700 PRINT:PRINT"   PRINTING...  ":PRINT
710 IFCV$="A"THENA$="[208]":B$="[186]":N=9:PRINT#4,CHR$(14):GOTO830
720 IFCV$="B"THENA$="[211]":B$=" ":N=17:PRINT#4,CHR$(15):GOTO830
730 IFCV$="C"THENA$="X":B$="O":N=9:PRINT#4,CHR$(14):GOTO830
740 IFCV$="D"THENA$="[206]":B$="[205]":N=17:PRINT#4,CHR$(15):GOTO830
750 IFCV$="E"THENA$="[193][211]":B$="[218][216]":N=9:PRINT#4,CHR$(15):GOTO830
760 IFCV$="F"THENA$="[166]":B$=" ":N=17:PRINT#4,CHR$(15):GOTO830
770 IFCV$="G"THENA$="[177]":B$="[178]":N=17:PRINT#4,CHR$(15):GOTO830
780 IFCV$="H"THENA$="[201][213]":B$="[203][202]":N=9:PRINT#4,CHR$(15):GOTO830
790 IFCV$="I"THENA$="[169]":B$="[223]":N=9:PRINT#4,CHR$(14):GOTO830
800 IFCV$="K"THENA$="[214]":B$="[219]":N=9:PRINT#4,CHR$(14):GOTO830
810 IFCV$="J"THENA$="[186]":B$="[207]":N=9:PRINT#4,CHR$(14):GOTO830
820 IFCV$="L"THENA$="[223]":B$="[169]":N=18:PRINT#4,CHR$(15):GOTO830
830 PRINT#4,CHR$(31):FORM=1TO19:FORX=1TON:PRINT#4,A$;B$;:NEXT
835 GOSUB1490:PRINT#4
840 FORX=1TON:PRINT#4,B$;A$;:NEXT:PRINT#4:NEXT:FORX=1TO13:PRINT#4:NEXT
850 PRINT"[154][147]       ENTER THE INSIDE MESSAGE      "
855 PRINT"   PRESS RETURN ON A SEPARATE LINE"
856 PRINT"        WHEN READY TO CONTINUE
860 LN[178]40:NU[178]0:[141]61000
870 [139]B$[178]""[167] 930
880 AN$[178]B$
900 :
910 [152]4,[199](15):KK[178][181](52[171]([195](AN$)[173]2)):[152]4,[166]KK),;AN$:[152]4
920 AN$[178]"":A$[178]"":[137]860
930 [153]"FOR TYPE A ONE LINER ON BACK ? (Y/N) ":[153]
940 [161]A$:[139]A$[178]""[167]940
945 [139]A$[178]"N"[176]A$[178]"(null)" [167] 960
946 [139]A$[178]"Y"[176]A$[178]"(null)" [167] 950
947 [137] 940
950 [153]:[153]" WHAT IS THE CREDIT TO PRINT :";:LN[178]19:[141]61000:FF$[178]B$
951 [152]4,[166]5),;FF$
955 [152]4
960 [153]"LOAD":[141]1450:[137]140
970 :
980 [153]"LOAD"
985 [159]4,4,0:[153]"OPEN  CUSTOM LETTERHEAD MODE IS NOW ACTIVE"
987 [153]:[153]" E=ENHANCED, N=NORMAL, Q=QUIT, (E/N/Q) "
990 [153]"    WHICH PRINT MODE DO YOU WISH ?"
991 [161]M$:[139]M$[178]""[167]991
992 [139]M$[178]"E"[176]M$[178]"N"[176]M$[178]"Q"[167] 1000
995 [137] 991
1000 :
1010 [139]M$[178]"Q"[167]1120
1025 [139]M$[178]"E"[167][152]4,[199](31)[170][199](14):LN[178]20
1035 [139]M$[178]"N"[167][152]4,[199](31)[170][199](15):LN[178]59
1040 AN$[178]"":LN[178]20:[139]M$[178]"N"[167]LN[178]60
1044 [153]"ENTER TEXT NOW. UP TO "LN[171]1" CHARS LONG"
1045 [153]"PRESS RETURN ON A SEPERATE LINE TO QUIT":[153]
1050 NU[178]0:[141]61000
1060 [139]B$[178]""[167] 1130
1070 AN$[178]B$
1100 [139]M$[178]"E"[167]XT[178][181](10[171]([195](AN$)[173]2)):[152]4,[166]XT),;AN$:[137]1050
1110 [139]M$[178]"N"[167]XT[178][181](30[171]([195](AN$)[173]2)):[152]4,[166]XT),;AN$:[137]1050
1120 [153]"LOAD":[141]1450:[137]140
1130 [153]"CLR SHOULD I DRAW A LINE ACROSS THE TOP,  "
1140 [153]"CLR TO SEPARATE THE LETTERHEAD (Y/N) CLOSE?   "
1150 [161]A$:[139]A$[178]""[167]1150
1160 [139]A$[178]"Y"[167]1165
1161 [139]A$[178]"N"[167]1120
1162 [137] 1150
1165 [152]4,[199](14)[199](159):[129]X[178]1[164]40:[152]4,"TO";:[130]:[137]1120
1170 [137]1120
1180 [153]"LOAD":[159]4,4,0:[152]4,[199](31)
1190 [153]"OPEN TYPEWRITER WITH NORMAL PRINT MODE  "
1200 [153]" IS NOW ACTIVE. TYPE IN UP TO 80 COLS.  "
1210 [153]"PRESS RETURN ON A SEPERATE LINE TO QUIT":[153]
1220 AN$[178]""
1230 LN[178]81:NU[178]0:[141]61000
1240 [139]B$[178]""[167] 1290
1250 [152]4,B$:[137]1220
1290 [152]4,[199](15):[153]"LOAD":[141]1450:[137]140
1300 [153]"LOAD":[159]4,4,0:[152]4,[199](31)[170][199](14)
1310 [153]"OPEN TYPEWRITER WITH ENHANCED PRINT MODE"
1320 [153]" IS NOW ACTIVE. TYPE IN UP TO 40 COLS.  "
1325 [153]"PRESS RETURN ON A SEPERATE LINE TO QUIT":[153]
1330 LN[178]41
1340 NU[178]0:[141]61000
1350 [139]B$[178]""[167] 1400
1360 [152]4,B$:[137]1330
1400 [152]4,[199](15):[153]"LOAD":[141]1450:[137]140
1410 P[178][195](K$):TX[178]40[171]P[173]2:[129]D[178]1[164][195](K$)[171]20
1420 [153]XR$[166]TX)[200](K$,D)[201](K$,P[171](P[171]D)):TX[178]TX[171]1:[130]:[142]
1430 :
1450 [159]10,4,10:[152]10:[160]10:[160]4:X[178]0:I[178]0:P[178]0:L[178]0:Z[178]0:M[178]0:N[178]0:KK[178]0
1460 XT[178]0:A$[178]"":B$[178]"":AN$[178]"":FF$[178]"":TX[178]0:CV$[178]"":XR$[178]"":[142]
1470 [152]4:[152]4,"ADD THE NUMBER AT THE TOP TO THE NUMBER AT THE SIDE"
1480 [152]4:[152]4,"FOR THE PROPER LOCATION ON THE 40 COLUMN SCREEN."
1485 [142]
1490 [159]6,4,6:[152]6,[199](22):[160]6:[142]
1500 [153]""
1501 [153]"                        WAIT
1502 PRINT"  QUIT : ARE YOU SURE ? [146]
1503 [153]"         Y)ES OR N)O    WAIT
1504 PRINT"                        [146]
1510 [161]A$:[139]A$[178]""[167]1510
1515 [139]A$[178]"Y"[167] 1550
1520 [139]A$[178]"N"[167] 130
1523 [137] 1510
1550 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1555 [139]ER[179][177]63 [167] [153]"LOAD":[128]
1560 [147]"HELLO CONNECT",8
60000 :
60010 [153]"LOAD"
60012 [153]
60020 [153]"             L O A D S T A R"
60030 [153]"             PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
60050 [153]"            OPENPROUDLY PRESENTS"
60060 [153]
60070 [153]
60080 [153]"   qqq  FORqqq  SYSq PRINTq  q qqqqq CONTq q  q  CLRqq"
60090 [153]"   q  q FORq  q SYSq PRINTqq q   q   CONTq qq q CLRq"
60100 [153]"   qqq  FORqqq  SYSq PRINTq qq   q   CONTq q qq CLRq qq"
60110 [153]"   q    FORq q  SYSq PRINTq  q   q   CONTq q  q CLRq  q"
60120 [153]"   q    FORq  q SYSq PRINTq  q   q   CONTq q  q  CLRqq"
60130 [153]
60140 [153]"              q    qq  CONTqqq"
60150 [153]"              q   q  q CONTq  q"
60160 [153]"           CLOSE  q   qqqq CONTqqq"
60170 [153]"              q   q  q CONTq  q"
60180 [153]"              qqq q  q CONTqqq"
60190 [153]
60200 [153]"           LISTBY JEROME E. REUTER"
60210 [153]
60220 [153]"                PRINT#(C) 1987"
60230 [153]
60240 [153]"              PRESS (SPACE)"
60250 [153]"";
60255 [161]A$:[139]A$[178]" "[167][142]
60300 [137] 60255
61000 B$[178]"":[153]"TO";:[129]A[178]1[164]100
61005 [161]A$:[139]A$[178]""[167]61005
61010 [139]A$[178][199](20) [175]A[177]1 [167] A[178]A[171]1:B$[178][200](B$,A[171]1):[153]"CMDCMD  CMDCMDTO";:[137]61005
61015 [139]A$[178][199](20) [167] 61005
61020 [139]A$[178][199](13)[167][153]"CMD ":[142]
61030 [139]A$[179]" "[176]A$[177]"(null)"[167] 61005
61035 [139]A$[177]"Z"[167] 61005
61040 [139]A[177]100 [176]A[177]LN [167] 61005
61045 [139]  NU[178]1 [175] A$[179]"0"[176]NU[178]1[175] A$[177]"9"[167]61005
61050 B$[178]B$[170]A$:[153]"CMD"A$;:[153]"TO";:[130]
61500 [159]15,4,15:[160]15:[139]ST[178]0 [167] [142]
61502 [151]53280,1:[151]53280,.
61504 [153]"                                        ";
61505 [153]" PRINTER NOT DETECTED - (SPACE) = ABORT ";
61506 [153]"    OR PRESS (RETURN) TO TRY AGAIN      ";
61507 [153]"                                        "
61510 [161]A$:[139]A$[178]""[167]61510
61515 [139]A$[178]" "[167] 150
61518 [139]A$[178][199](13) [167] 61500
61520 [137] 61510
63000 :
63010 [153]"LOADWAIT             OPENPRINTING LAB"
63020 [153]"             PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
63030 [153]" LISTOR````````````````````````````````````^"
63040 [153]" }                                    }"
63050 [153]" }  1LIST)..PRINT THE CHAR MEMORY MAP     LIST}"
63060 [153]" }                                    }"
63070 [153]" }  FOR2LIST)..FORPRINT THE COLOR MEMORY MAP   SYSCLOSELIST}"
63080 [153]" }                                    }"
63090 [153]" }  SYS3LIST)..SYSPRINT A SHEET OF MEMO PADS    LIST}"
63100 [153]" }                                    }"
63110 [153]" }  4LIST)..PRINT A SHOPPING LIST         LIST}"
63120 [153]" }                                    }"
63130 [153]" }  CONT5LIST)..CONTPRINT A SHEET OF PHONE MSGS   LIST}"
63140 [153]" }                                    }"
63150 [153]" }  CLR6LIST)..CLRPRINT A GREETING CARD         LIST}"
63160 [153]" }                                    }"
63170 [153]" }  7LIST)..PRINT A CUSTOM LETTERHEAD     LIST}"
63180 [153]" }                                    }"
63190 [153]" }  FOR8LIST)..FORUSE THE TYPEWRITER (NORMAL)   LIST}"
63200 [153]" }                                    }"
63210 [153]" }  SYS9LIST)..SYSUSE THE TYPEWRITER (ENHANCED) LIST}"
63220 [153]" }                                    }"
63230 [153]" }  0LIST)..QUIT BACK TO LOADSTAR         LIST}"
63240 [153]" }                                    }"
63250 [153]" /````````````````````````````````````EXP";
63260 [153]"";
63270 [142]